# NOT RUN {
House<-as.character(c(1,1,1,1,2,2,2,2,3,3,3,3,4,4,4,4))
life<-c(100:115)
data<-cbind.data.frame(House,life)
data(BostonHousing)
r=data$life
k=4
f=c("Person A", "Person B", "Person C", "Person D")
n=4
BlockD(r,k,f,n)
# }
Run the code above in your browser using DataLab